home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0191.ZIP / FINDUP32.DOC < prev    next >
Text File  |  1986-01-15  |  16KB  |  242 lines
  1. Program FindDupe is placed in the public domain by the author.  It is
  2. however copyrighted and all rights and ownership are kept with the
  3. author.  You may use it, copy it, give it to your friends but don't
  4. try to sell it.  Because the devil will get you and if I find out
  5. I will prosecute.
  6.  
  7. The program is a Turbo Pascal Program that reads the directories of your
  8. disks - it really only works best with hard disks because you don't usually
  9. have sub directories on floppies.
  10.  
  11. The program will print on paper (using Epson controls - only form feed)
  12. or the screen.
  13.  
  14. It will give you a list of all files, sorted by file name, date, time,
  15. size and directory there in.  It will also tell you if the file is read
  16. only, hidden, system or sub directory.
  17.  
  18. It will give you a list of all duplicate named files on your disk, with the
  19. same above information.
  20.  
  21. It will give you a Sorted Tree Dir of the files on your disk with the above
  22. information.
  23.  
  24. Provided is the source FINDUP30.PAS, but to compile the program you need
  25. the Borland Package TURBO TOOLBOX because it has the sort routines that
  26. are used in the program.  If you don't have it; don't fret because in the
  27. library is also findup30.com which has been compiled with the sort in it.
  28.  
  29. Best of luck in your computing and may this program help you in keeping
  30. your machine manageable.
  31.  
  32. Karson W. Morrison
  33. RD1, Box 531,
  34. Ringoes NJ. 08551
  35. (201)-788-1846
  36.  
  37.  
  38.  
  39.  
  40. Version 2.1 modifications
  41.  
  42.                Version 2.1   October 27, 1985
  43.                  Modifications by Ray Bobak
  44.                     Sysop PC-RAIN Node II
  45.                     Wappingers Falls, NY
  46.                     914-462-7674 (data)
  47.  
  48.  Updated code so that the input string from the command line was a
  49.  list of drives to perform the services on.  This change was made
  50.  to allow SYSOP's with multiple download drives to scan all his
  51.  download drives for duplicates.  (Here you go Charlie, your name
  52.  in lights.)  This version was inspired by Charlie Innusa, a sysop
  53.  running RBBS-PC on only nine 32 Megabyte download drives.  You can
  54.  call his BBS, PC-Rockland at 914-353-2157 Subscription node, or
  55.                               914-353-2176 free node
  56.  
  57.  
  58. FINDUP21 can now search across multiple drives.  Just string the drive
  59. letters after the program name.
  60.  
  61. The command 'FINDUP21 ABCDEFGHIJKLMNOP' will cause FINDUP21 to search across
  62. drives A, B, C, D, E, F, G, ... O, and P.  Running this progam on your LAN
  63. may be detrimental to your networks performance!  Note: sorting may take a
  64. large amount of temporary disk space.  For 10K files, an 800K datafile is
  65. used for intermediate storage of the sort.  Make sure you have the space!
  66.  
  67. Hope this helps all those SYSOP's out in keeping thier BBS's free of duplicate
  68. files on their multi-drive file systems.
  69.  
  70. Ray Bobak (aka The Wiz)
  71. Wappingers Falls, NY
  72. October 27, 1985
  73.  
  74. Sysop - PC-RAIN Node II
  75. Wappingers Falls, NY
  76. (914)-462-7674 (data only)
  77.  
  78.     ╔══════════════════════════════════════════════════════════════════════╗
  79.     ║  Requirements:                                                       ║
  80.     ║                                                                      ║
  81.     ║  This program  requires  Turbo  Pascal  3.0  and the Turbo Toolbox   ║
  82.     ║  pascal  program  SORT.BOX.  The .COM  version  has  already  been   ║
  83.     ║  compiled with the SORT in it.                                       ║
  84.     ╠══════════════════════════════════════════════════════════════════════╣
  85.     ║  This program was written by and Copyright (C) 1985 by               ║
  86.     ║                                                                      ║
  87.     ║                              Karson W. Morrison                      ║
  88.     ║                              RD. 1, Box 531,                         ║
  89.     ║                              Ringoes, NJ. 08551                      ║
  90.     ║                              (201) 788-1846                          ║
  91.     ╠══════════════════════════════════════════════════════════════════════╣
  92.     ║  Acknowledgements:                                                   ║
  93.     ║                                                                      ║
  94.     ║  I used info picked up from a  bulletin  board  for  the  routines   ║
  95.     ║  to get system date and time.  That info. was created by  Jon Gray   ║
  96.     ║  of the IBM PC USERS GROUP Milwaukee.  It did have  a  bug  though   ║
  97.     ║  that would only work with months of 2 digits (now fixed by me).     ║
  98.     ║                                                                      ║
  99.     ║  I  also  used  routines  provided  by  Borland for the reading of   ║
  100.     ║  directories. This info was provided in their Turbo Tutor package.   ║
  101.     ║                                                                      ║
  102.     ║  Tears:                                                              ║
  103.     ║                                                                      ║
  104.     ║  A lot of hours went into this program please do not revise it and   ║
  105.     ║  leave out the credit that I have done most of the work.             ║
  106.     ║                                                                      ║
  107.     ║  Purpose:                                                            ║
  108.     ║                                                                      ║
  109.     ║  Every time I turned  around I  was  trying  to delete some of the   ║
  110.     ║  files on my hard disk because I was  always  ending  up with only   ║
  111.     ║  300 - 400 K left.  I kept  thinking  there  must be an easier way   ║
  112.     ║  to know if there were duplicate files.                              ║
  113.     ║                                                                      ║
  114.     ║                     This is the result                               ║
  115.     ╠══════════════════════════════════════════════════════════════════════╣
  116.     ║                Version 2.0   March 25, 1985                          ║
  117.     ║                    Made by the author.                               ║
  118.     ║                                                                      ║
  119.     ║  Updated program to put file size on  each line and put in a major   ║
  120.     ║  option for Sorted Tree Directories.                                 ║
  121.     ║                                                                      ║
  122.     ║  Every Tree Dir program that I have seen always  intersperces  sub   ║
  123.     ║  directories files where it finds them  with  the regular files in   ║
  124.     ║  that directory.  This program  put  files  together,  followed by   ║
  125.     ║  the sub directory files in  that directory.  The sub  directories   ║
  126.     ║  are sorted, and  then  printed  in  the  sorted  order within the   ║
  127.     ║  the parent directory.                                               ║
  128.     ║                                                                      ║
  129.     ║  Updated program to put output on a file DIRECTRY.DTA as an option   ║
  130.     ║  for later printing or other modification.                           ║
  131.     ╠══════════════════════════════════════════════════════════════════════╣
  132.     ║                Version 2.01   April 23, 1985                         ║
  133.     ║                    Made by the author.                               ║
  134.     ║                                                                      ║
  135.     ║  Made a change to increase the valid characters  that may be  in a   ║
  136.     ║  file name.  The 7Fh, DEL  char  may  be  in  a file name there by   ║
  137.     ║  making the file name unable to be entered from the keyboard.        ║
  138.     ║                                                                      ║
  139.     ║  This also is used to make a directory hidden.                       ║
  140.     ║  Fix the line which prints on the screen when a report is being      ║
  141.     ║  produced on paper.                                                  ║
  142.     ╠══════════════════════════════════════════════════════════════════════╣
  143.     ║              Version 2.02  July 28, 1985                             ║
  144.     ║                   Made by the author.                                ║
  145.     ║                                                                      ║
  146.     ║  Made a change to put a Clrscr in at the beginning of the program.   ║
  147.     ║  This was necessary if you use the Public Domain program to reset    ║
  148.     ║  the clear screen at the begining of the program.                    ║
  149.     ║  Turbo 3.0 also doesn't clear screen at beginning of program.        ║
  150.     ╠══════════════════════════════════════════════════════════════════════╣
  151.     ║             Version 2.03 September 9, 1985                           ║
  152.     ║                    Made by the author.                               ║
  153.     ║                                                                      ║
  154.     ║  Made a change to calculate to space used for 1K blocks which is     ║
  155.     ║  what is used when the data is stored on a floppy.                   ║
  156.     ╠══════════════════════════════════════════════════════════════════════╣
  157.     ║             Version 2.04 November 11, 1985                           ║
  158.     ║                     Made by author                                   ║
  159.     ║                                                                      ║
  160.     ║  Made a change to the first screen so that it would be easier to     ║
  161.     ║  understand the options.  Included Windows by Lynn Canning,          ║
  162.     ║  with the original code by Lane Farris.                              ║
  163.     ╠══════════════════════════════════════════════════════════════════════╣
  164.     ║             Version 3.00 December 12, 1985                           ║
  165.     ║                     Made by author                                   ║
  166.     ║  This version now requires Turbo 3.0                                 ║
  167.     ║                                                                      ║
  168.     ║  This version now will read multiple hard disks and floppies and     ║
  169.     ║  do its thing on the file names.                                     ║
  170.     ║                                                                      ║
  171.     ║       Option 1, 2, 4 will allow you to go to the screen, printer     ║
  172.     ║                      or disk file.                                   ║
  173.     ║       Option 3 will only go to disk file 'DIRECTRY.DTA' for the      ║
  174.     ║                directory and 'DUPLICAT.DTA' for the duplicate        ║
  175.     ║                entries.                                              ║
  176.     ║                                                                      ║
  177.     ║       Option 4 Sorted Tree Directory uses the Drive letter as its    ║
  178.     ║                major sort key.  Therefore it will not mix up file    ║
  179.     ║                and directories names from multiple drives.           ║
  180.     ║                                                                      ║
  181.     ║  This version of the program also supports floppies.  The program    ║
  182.     ║  would read them before but the output was not too useful because    ║
  183.     ║  only one floppy could be read at a time.  *** NOW *** the program   ║
  184.     ║  asks you if you are reading a hard drive or a floppy.  Nothing      ║
  185.     ║  happens to the machine if you answer the wrong answer, it is to     ║
  186.     ║  allow me to know if I should VolumeID the disk (I don't on Hard     ║
  187.     ║  Disks).  If you want me to Volume-ID a floppy just enter the data.  ║
  188.     ║  (What you enter will also show on the report as the main directory  ║
  189.     ║  If you don't enter a Volume-ID (return) I show the name 'FLOPPYnnn' ║
  190.     ║  as the main directory. (nnn is the number of the diskette entered)  ║
  191.     ║                                                                      ║
  192.     ║  If you want to speed up the entry process, and you have two or more ║
  193.     ║  floppy drives run the program as FINDDUPE AB.  The program will     ║
  194.     ║  alternate between the drives.  (NOTE:) one problem in using this    ║
  195.     ║  feature you must have a floppy for both A and B drives. (You could  ║
  196.     ║  place a blank formatted floppy in the last B: drive to insure       ║
  197.     ║  the completion of the input phase.)                                 ║
  198.     ║                                                                      ║
  199.     ║                                                                      ║
  200.     ║  Included into version 3.00 are changes made by Ray Bobak as he      ║
  201.     ║  noted above.                                                        ║
  202.     ║                                                                      ║
  203.     ╠══════════════════════════════════════════════════════════════════════╣
  204.     ║  Version 3.01 made by the author was a minor change to fix the time  ║
  205.     ║  when the hour was a one digit hour 1..9 am.  This program was never ║
  206.     ║  released into the public.  The arc file issued by the author was    ║
  207.     ║  also missing the windo.inc file.                                    ║
  208.     ╠══════════════════════════════════════════════════════════════════════╣
  209.     ║  Version 3.02 made by the author was made to properly handle the     ║
  210.     ║  floppy drive and the output when processing floppies on a floppy    ║
  211.     ║  system.  Unfortunatily I tested it on a hard disk system.  I created║
  212.     ║  the output file on a floppy (the first one that you wanted to read) ║
  213.     ║  and when I got around to writing the output, you now had a different║
  214.     ║  floppy in the drive -- the program abended.  I also cleaned up the  ║
  215.     ║  input of the command line.  If you enter FINDDUPE A:B:  I will      ║
  216.     ║  delete the colon before processing the data.                        ║
  217.     ║                                                                      ║
  218.     ║  I also changed the program to allow a volume-id to be read with     ║
  219.     ║  imbedded blanks in it.  Version 3.0 stopped the Volume-id at the    ║
  220.     ║  first blank.  I now start at position 11 and back up to the first   ║
  221.     ║  non-blank character and say that the volume-id is that many chars.  ║
  222.     ║  long.                                                               ║
  223.     ║                                                                      ║
  224.     ║  Keep the cards and letters flowing with changes, revisions needed   ║
  225.     ║  etc.  The next planned change is to prompt for deletion in the      ║
  226.     ║  duplicate file phase.  I know where the duplicates are I just need  ║
  227.     ║  you to tell me which one to delete (if you wnat to that is).        ║
  228.     ║                                                                      ║
  229.     ╚══════════════════════════════════════════════════════════════════════╝
  230.     ╔══════════════════════════════════════════════════════════════════════╗
  231.     ║  Yours for better Computing                                          ║
  232.     ║                             Karson W. Morrison Caleb Computing Center║
  233.     ╚══════════════════════════════════════════════════════════════════════╝
  234.  
  235.     ╔══════════════════════════════════════════════════════════════════════╗
  236.     ║                                                                      ║
  237.     ║  NOTE:                                                               ║
  238.     ║                                                                      ║
  239.     ║  A command line is used as input if entered else the default drive   ║
  240.     ║  is used.                                                            ║
  241.     ╚══════════════════════════════════════════════════════════════════════╝
  242.